home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette: Best of 1988
/
BESTOF88.D64
/
rally racer
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
4KB
|
99 lines
5 poke53280,15:poke53281,15
10 rem copyright 1988 compute! publications, inc. - all rights reserved
20 print"[147] copyright 1988 compute! pub., inc."
30 printtab(11)"all rights reserved"
40 ifl=0thenl=1:load"rallycode",8,1
45 poke56,160:poke55,0:clr
50 sp=53248:pokesp+21,255:forx=0to7:pokesp+x*2,x*28+40:pokesp+1+x*2,90
60 poke2040+x,x+248:next:poke53281,0:poke53280,0
70 print"[147][158]building sprites.."
80 forx=0to64:readz:a=a+z:poke828+x,z:next
90 ifa-7027thenprint"error in ml data":end
100 s1=15872:s2=s1+64:s3=s2+64:s4=s3+64:s5=s4+64:s6=s5+64:s7=s6+64:s8=s7+64
110 fory=0to191:readz:b=b+z:pokes1+y,z:next
120 ifb-20723thenprint"error in sprite data":end
130 a=s4:b=s2:gosub190:a=s5:b=s1:gosub190
140 a=s6:b=s4:gosub200:a=s7:b=s3:gosub200
150 a=s8:b=s2:gosub200:poke792,0:poke793,192:pokesp+21,0
160 print"building track..":forx=0to413:readz:c=c+z:pokex+14848,z:next
170 ifc-58451thenprint"error in track data":end
180 poke631,13:poke198,1:sys50689
190 fory=0to21:forx=0to2:pokea+63-y*3+x,peek(b+y*3+x):next:next:return
200 fory=0to21:forx=0to2:pokea+y*3+2-x,peek(b+y*3+x):next:next
210 poke254,a/256:poke253,a-peek(254)*256:sys828:return
220 rem ml data
230 data165,253,133,251,165,254,133,252,160,0,169,0,141,125
240 data3,162,0,177,251,61,109,3,240,9,189,117,3,13,125,3
250 data141,125,3,232,224,8,208,235,173,125,3,145,251,200
260 data192,64,208,218,96,1,2,4,8,16,32,64,128,128,64,32,16,8,4,2,1
270 rem sprite data
280 data0,0,0,0,126,0,3,255,192,15,255,240
290 data15,255,240,15,255,240,15,0,240,6,0,96
300 data7,255,224,7,255,224,7,255,224,7,255,224
310 data15,255,240,30,0,120,31,0,248,31,255,248
320 data31,255,248,31,255,248,1,255,128,0,0,0
330 data0,0,0,0,0,0,0,0,62,0,0,127
340 data128,0,127,224,0,255,240,1,227,248,31,241
350 data248,63,248,248,127,252,124,126,254,124,60,127
360 data126,62,63,252,31,31,232,31,143,224,15,199
370 data192,7,227,128,3,255,128,0,255,128,0,127
380 data0,0,30,0,0,0,0,0,0,0,0,0
390 data0,0,0,0,0,63,0,0,63,129,248,63
400 data255,248,127,255,252,124,254,124,120,254,62,120
410 data254,62,120,254,62,120,254,62,120,254,62,124
420 data254,124,127,255,252,63,255,248,63,129,248,63
430 data0,0,0,0,0,0,0,0,0,0,0,0
440 rem track data
450 data255,255,224,192,192,194,199,199
460 data255,255,63,3,0,0,240,255
470 data255,255,254,252,60,28,8,0
480 data255,255,0,0,63,127,127,127
490 data255,255,0,0,255,254,252,252
500 data255,255,0,0,255,3,1,113
510 data255,255,7,0,255,255,240,224
520 data255,255,240,0,240,255,0,0
530 data255,255,0,0,60,252,0,0
540 data255,255,127,63,63,63,63,63
550 data199,199,199,199,199,199,199,199
560 data255,255,255,241,192,128,0,7
570 data128,192,255,127,63,31,15,15
580 data126,252,252,252,252,252,128,0
590 data0,0,28,62,62,62,126,254
600 data33,1,3,63,63,63,31,0
610 data192,193,192,224,240,252,254,62
620 data0,255,255,31,15,15,15,15
630 data0,255,255,255,255,192,128,131
640 data127,255,255,255,255,31,15,7
650 data199,199,199,199,194,192,224,255
660 data15,15,15,15,15,31,63,255
670 data143,143,143,143,143,143,143,143
680 data15,31,31,15,0,0,128,255
690 data255,255,255,255,0,0,0,255
700 data0,248,254,254,63,31,15,15
710 data30,14,14,15,15,15,15,15
720 data6,0,0,0,255,255,255,255
730 data7,15,31,127,255,240,224,192
740 data135,135,135,135,7,7,15,31
750 data255,255,254,248,240,240,241,241
760 data255,255,0,0,0,255,240,224
770 data143,15,15,15,31,255,7,3
780 data255,255,240,224,192,192,195,195
790 data255,255,63,15,7,7,7,3
800 data143,143,143,143,143,143,143,135
810 data7,3,0,128,255,255,255,255
820 data255,128,0,0,224,240,240,240
830 data195,195,65,64,96,112,127,127
840 data255,255,255,15,7,3,3,131
850 data240,240,248,255,255,255,255,255
860 data128,3,7,255,255,255,255,255
870 data3,129,192,192,224,255,255,255
880 data195,131,3,3,7,255,255,255
890 data3,1,0,0,0,128,255,255
900 data128,192,255,255,0,0,255,255
910 data15,7,7,7,15,31,255,255
920 data240,240,240,240,248,252,254,255
930 data255,255,127,0,0,0,0,255
940 data195,131,3,7,15,31,127,255
950 data255,255,255,255,255,255,255,255
960 data191,191,191,191,191,191